-- card: 13972 from stack: in
-- bmap block id: 14623
-- flags: 0000
-- background id: 2649
-- name: dssample


-- part 1 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=198 top=224 right=250 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=357 top=260 right=282 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to card SLBnames
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=429 top=260 right=282 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to card "SLBnames"
end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=427 top=47 right=67 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: In


-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=459 top=47 right=67 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16
-- text size: 12
-- style flags: 4096
-- line height: 16
-- part name: Out


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=20 top=117 right=132 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put "I am out of the office" into GOO
  put "OUT" into card field "In1"
  put the time into card field "tm"
  put the date into card field "dt"
  put empty into card field "drippy"
  put GOO into first line of card field shortcut
  click at loc of card button OUTB
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=20 top=101 right=116 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put "I am at Lunch" into GOO
  put "OUT" into card field "In1"
  put the time into card field "tm"
  put the date into card field "dt"
  put GOO into first line of card field shortcut
  put "one hour" into card field "drippy"
  click at loc of card button OUTB
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=20 top=85 right=100 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put "I am IN" into GOO
  put "IN" into card field "In1"
  put the time into card field "tm"
  put the date into card field "dt"
  put GOO into first line of card field shortcut
  put empty into card field "drippy"
  click at loc of card button INB

end mouseUp



-- part 10 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=198 top=116 right=184 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: shortcut


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=427 top=47 right=67 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: INB
----- HyperTalk script -----
on mouseDown
  set TextStyle of card field In to Shadow
  set TextStyle of card field Out to plain
end mouseDown



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=459 top=47 right=67 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OUTB
----- HyperTalk script -----
on mouseDown
  set TextStyle of card field In to plain
  set TextStyle of card field Out to shadow
end mouseDown



-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=171 top=48 right=63 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: In1


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=219 top=48 right=63 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tm


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=301 top=48 right=63 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dt


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=18 top=238 right=258 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "SAS"
  repeat until the mouse is down
    show card field "SAS"
  end repeat
  hide card field "SAS"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=18 top=266 right=286 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "RS"
  repeat until the mouse is down
    show card field "RS"
  end repeat
  hide card field "RS"
end mouseUp



-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=282 top=72 right=94 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: drippy


-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=199 top=74 right=93 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
  put line 1 of card field "drippy" into zapper
  put "12:00 AM,1:00 AM,2:00 AM" into qoo
  put ",3:00 AM" into woo
  put ",4:00 AM,5:00 AM,6:00 AM,7:00 AM" into eoo
  put ",8:00 AM,9:00 AM,10:00 AM" into roo
  put ",11:00 AM,12:00 PM" into too
  put ",1:00 PM,2:00 PM,3:00 PM" into yoo
  put ",4:00 PM,5:00 PM,6:00 PM,7:00 PM,8:00 PM,9:00 PM" into uoo
  put ",10:00 PM,11:00 PM" into ioo

  put qoo&woo&eoo&roo&too&yoo&uoo&ioo into MENU

  Get HPopupMenu(menu,0,1,280)

  if it is not zero then

    Put Item 1 of it into TheLine
    if TheLine is not empty then
      put theLine into card field "Drippy"
    else
      put zapper into card field "Drippy"
    end if

    If TheLine=1 then
      put it into card field "Produ"
    end if

  end if

end mouseDown



-- part 21 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=1 top=303 right=339 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: foo


-- part 22 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=8 top=158 right=189 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: SAS


-- part 23 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=8 top=158 right=189 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: RS


-- part contents for card part 6
----- text -----
OUT

-- part contents for card part 5
----- text -----
IN

-- part contents for card part 10
----- text -----
I am out of the office





-- part contents for card part 13
----- text -----
OUT

-- part contents for card part 14
----- text -----
3:43 PM

-- part contents for card part 15
----- text -----
3/22/90

-- part contents for card part 21
----- text -----
This will open the currently selected user to this screen.


-- part contents for card part 22
----- text -----
This is where you would save the new, or replaced ShortCut.

-- part contents for card part 23
----- text -----
This is where you would remove the new, or replaced ShortCut.